Delphi实现窗体总是向前操作，Delphi拖拽的一个例子

Delphi实现窗体总是向前操作

 

procedure TForm1.Button1Click(Sender: TObject); begin if form1.FormStyle=fsNormal then //默认操作 Form1.FormStyle:=fsStayOnTop//实现窗体总是向前操作 else form1.FormStyle:=fsNormal; end; end. 

 

Delphi拖拽的一个例子

 

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); //鼠标按下任意键产生的事件 begin if Button = mbleft then //拖拽操作 (Sender as TEdit).BeginDrag(false); //BeginDrag具有一个Boolean参数，如果是false表示鼠标拖动一小段距离才进行操作，如果是true表示按下鼠标左键马上操作，通常为false //ShowMessage('hello'); end; procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);//拖拽对象跨过一个组件产生的对象 begin if Source is TEdit then Accept:=True; end; procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer); begin //开始拖拽产生的事件 if (Sender is TMemo) and (Source is TEdit) then (Sender as TMemo).Lines.Add((Source as TEdit).Text) end; end.