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.