Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Получить доступ к радио кнопкам в TWebBrowser
uses MSHTML; procedure TForm1.Button1Click(Sender: TObject); var Document: IHTMLDocument2; rbTestList: IHTMLElementCollection; rbTest: IHTMLOptionButtonElement; I: Integer; begin // Get a reference to the document // Referenz auf Dokument Document := WebBrowser1.Document as IHTMLDocument2; // Get a reference to input-control (Radiobutton) // Referenz auf Eingabe-Control-Element (Radiobutton) rbTestList := Document.all.item('rating', EmptyParam) as IHTMLElementCollection; // Get current values. // Aktuellen Wert auslesen for I := 0 to rbTestList.Length - 1 do begin // reference to the i. RadioButton // Referenz auf i. RadioButton rbTest := rbTestList.item(I, EmptyParam) as IHTMLOptionButtonElement; // Show a message if radiobutton is checked // Anzeigen, wenn dieser RadioButton ausgewahlt if rbTest.Checked then ShowMessageFmt('Der RadioButton mit dem Wert %s' + ' ist ausgewahlt!', [rbTest.Value]); end; // Set new values // Neuen Wert setzen for I := 0 to rbTestList.Length - 1 do begin // reference to the i. RadioButton // Referenz auf i. RadioButton rbTest := rbTestList.item(I, EmptyParam) as IHTMLOptionButtonElement; // check radiobutton with value 3. // Wir mochten den RadioButton mit dem Wert "3" aktivieren if rbTest.Value = '3' then rbTest.Checked := True; end; end;