Function TForm1.Createbutton1(Number: Integer):TButton; var button1 : TButton; begin button1 := TButton.Create(nil); try button1.Parent := Self; button1.Caption := ('Button1'); button1.Tag := Number; button1.Top := 100; button1.Left := 100;; button1.Width := 145; button1.Height := 25; button1.OnMouseDown := ButtonMouseDown; button1.OnMouseMove := ButtonMouseMove; button1.OnMouseUp := ButtonMouseUp; button1s.Add(button1); except button1.Free; raise; end; Result := button1; end;
Procedure TForm1.ButtonRightMouseDown(Sender: TObject; Button : TMouseButton); var ButtonTag : Integer; begin if Button = mbRight then Begin if (Sender as TButton).Caption = 'Button1' then begin ButtonTag := (Sender as TButton).Tag; Button1s.Delete(ButtonTag); end; PostMessage( Form1.WindowHandle, WM_DELETE_CONTROL, WPARAM( Sender ), 0 ); FTableButtonDragging := False; end; end;
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)