文件名称:拖放编程窗体设计-Delphi程序设计教程—应用程序界面设计
文件大小:1.77MB
文件格式:PPT
更新时间:2024-05-14 23:23:46
Delphi 程序设计 界面设计
拖放编程窗体设计 程序中需要处理Label4的OnDragOver、OnDragDrop和Button1的OnClick事件,下面是有关的事件代码: procedure TForm1.Label4DragDrop(Sender, Source: TObject; X, Y: Integer); begin //目标标签接收拖放源的颜色 Label4.Color := TLabel(Source).Color; //将拖放源对象隐藏 TLabel(Source).Visible:= false; end;