Лидеры

Неужели так сложно не ссылки кидать, а приложить файлы? Среда разработки Delphi 10.3.pdf Delphi. Программирование для Windows, OS X, iOS и Android [2014].pdf Мобильная разработка в delphi.pdf Программирование_на_Delphi_для_школ.pdf

MessageDlg (C++) - RAD Studio Code Examples (embarcadero.com) void __fastcall TForm4::Button1Click(TObject *Sender) { UnicodeString errorText = "This is a sample message for an error"; MessageDlg(errorText,mtError,mbAbortRetryIgnore,0); }

dnekrasov Спасибо Вам Большое! работает, то что надо

dnekrasov Гигантское Вам спасибо! в FormShow вставил этот код with Screen.WorkAreaRect do Form2.SetBounds(Left, Top, Right - Left, Bottom - Top); и о чудо! Это то что я так долго искал! dnekrasov Спасибо Вам еще раз!

FMX.Dialogs procedure ShowMsgYesNo; begin { Show a multiple-button alert that triggers different code blocks according to your input } TDialogService.MessageDialog('Choose a button:', System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], System.UITypes.TMsgDlgBtn.mbYes, 0, // Use an anonymous method to make sure the acknowledgment appears as expected. procedure(const AResult: TModalResult) begin case AResult of { Detect which button was pushed and show a different message } mrYES: ShowMessage('You chose Yes'); mrNo: ShowMessage('You chose No'); end; end); end;