Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Реализация кнопок Вперед, Назад и Отмена для TWebBrowser
{
When hosting the TWebbrowser control, it may be desirable to implement
Forward/Back/Cancel buttons similar to those that Internet Explorer implements.
The WebBrowser control supports a CommandStateChange() event,
which is fired whenever the Forward/Back/Cancel button need to be enabled or disabled.
The CommandStateChange event is sent with two parameters: a constant indicating
the type of button (CSC_NAVIGATEFORWARD or CSC_NAVIGATEBACK or CSC_UPDATECOMMANDS),
and a Boolean flag indicating whether to enable or disable the button.
}
{
Beim TWebbrowser ist es vielleicht wьnschenswert, wenn es zugehцrige Buttons
wie Vorwдrts/Rьckwдrts/Abbrechen gibt (siehe z.B Internet Explorer).
Es gibt ein CommandStateChange() Ereignis, welches immer dann ausgelцst wird,
wenn entweder der Vorwдrts/Rьckwдrts/Abbrechen aktiviert oder deaktiviert werden
muss. CommandStateChange() hat zwei Parameter: Eine Konstante
CSC_NAVIGATEFORWARD oder CSC_NAVIGATEBACK oder CSC_UPDATECOMMANDS, welche angibt,
welcher Button betroffen ist und ein Boolean Wert,
welcher den Status eines Button angibt (aktiviert oder deaktiviert)
}
// Navigate to a URL
// Zu einer URL navigieren
procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('www.delphiworld.narod.ru');
end
;
// Catch the events and set a button's Enabled state
// Die Ereignisse abfragen und den "Enabled" Status eines Buttons setzen
procedure
TForm1.WebBrowser1CommandStateChange(Sender: TObject;
Command: Integer; Enable: WordBool);
begin
case
Command of
CSC_NAVIGATEBACK: ButtonBack.Enabled := Enable;
CSC_NAVIGATEFORWARD: ButtonForward.Enabled := Enable;
CSC_UPDATECOMMANDS: ButtonCancel.Enabled := Enable;
end
;
end
;
procedure
TForm1.ButtonBackClick(Sender: TObject);
begin
WebBrowser1.GoBack
end
;
procedure
TForm1.ButtonForwardClick(Sender: TObject);
begin
WebBrowser1.GoForward
end
;
procedure
TForm1.ButtonCancelClick(Sender: TObject);
begin
WebBrowser1.Stop;
end
;