admin - Tech Story - Page 983 of 1023

Author: admin

Disable a form movement

Disable a form movement {....} private procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; {....} procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest); begin inherited; with Message do begin if Result = HTCAPTION then Result …

Format a MessageDlg

Format a MessageDlg procedure TForm1.Button1Click(Sender: TObject); var f: TForm; begin // Create the MessageDialog f := Dialogs.CreateMessageDialog('HELLOWORLD', dialogs.mtInformation, dialogs.mbOKCancel); // Set the backcolor to blue. f.Color := clBlue; // …