拖放编程窗体代码设计-Delphi程序设计教程—应用程序界面设计

【文件属性】：

文件名称：拖放编程窗体代码设计-Delphi程序设计教程—应用程序界面设计

文件大小：1.77MB

文件格式：PPT

更新时间：2024-05-14 23:23:46

Delphi 程序设计 界面设计

拖放编程窗体代码设计 procedure TForm1.Label4DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin //表示本对象接收拖动操作 Accept := true; end; procedure TForm1.Button1Click(Sender: TObject); begin //还原初始状态 Label1.Visible:= true;//还原红色标签可见 Label2.Visible:= true;//还原蓝色标签可见 Label3.Visible:= true;//还原绿色标签可见 Label4.Color:= clWhite;//目标区域颜色还原 end;