Windows Delphi . ( , , ), , . , 쳺 . . Windows , 䳿. , . , , , , 䳿. , .
³ ( ) . :
' drag-and-drop
, 䳿 . () TnotifyEvent.
OnClick TNotifyEvent, 䳺 . . OnClick .
. 䳿 Label1.
procedure TForml.LabellClick(Sender: TObject);
begin
// Time
// TimeToStr
Label1.Caption:=TimeToStr(Time);
end;
.
OnClick , , , Button - <> <Enter>, heckBox - <>.
- 䳿:
OnMouseDown TMouseEvent, , nMouseUp TMouseEvent, .
䳿, :
OnMouseDown
Onlick ( )
OnMouseUp
, , nDblick TNotifyEvent. 䳿 : OnMouseDown, OnClick, OnMouseUp, nDblick, OnMouseDown, OnMouseUp.
Delphi 䳿 lick. ,
Button2.Click; Button2.
nMouseMove TMouseMoveEvent. : 1
|
|
TMouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState; X, Y: Integer) of object;
䳿 Sender , , y integer Sender. shift <Alt>, <Ctrl> <Shift> . :
ssShift - <Shift>
ssAlt - <Alt>
ssCtrl - <Ctrl>
ssLeft -
ssMiddle -
ssDouble -
- shift . , <Shift> <Ctrl>, shift [ssShift, ssCtrl]. , shift [].
䳿 nKeyress nKeyDown, , OnKeyUp, . 䳿 : OnKeyDown,OnKeyPress,OnKeyUp.
KeyDown, OnKeyUp .
nKeyress TKeyressEvent - . , .
䳿 nKeyPress .
, ASCII-, 䳿 OnKeyDown OnKeyUp TKeyEvent, - .
OnEnter TNotifyEvent. - , , <Tab>. nExit TNotifyEvent.
drag-and-drop ( ) ', , . : . ', , - , -.
' ' 䳿, :
OnStartDrag TStartDragEvent . 䳿 : '- Source TObject DragObject TDragObject.
OnDragOver TDragOverEvent , ', . 䳿 : '- Source TObject, '- Sender TObject, y nteger , State TDragState Accept Boolean . , ', , , . - -. , Accept True, - False.
|
|
nDragDrop TDragDropEvent , ᑺ . 䳿 : ' Sourse TObject, '- Sender y .
OnEndDrag TEndDragEvent , . 䳿 ᑺ- Target TObject y , '- Sender.
OnDragDrop OnDragOver Sender , , 䳿 OnEndDrag Sender '-.
drag-and-drop . 䳿, OnDragDrop OnDragOver. '-, , DragMode dmAutomatic, , BeginDrag.
䳿 OnDragOver . , Accept True, - False.
䳿 OnDragDrop '.
. Label1 Form1.
// Label1 DragMode dmAutomatic
procedure Tform1.FormDragOver (Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
if Source=Label1 then Accept:=true else Accept:=false;
end;
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
Label1.Left:=X; Label1.Top:=Y;
end;
㳿 drag-and-drop. nMouseDown, ' .
, onHint TNotifyEvent, , ' .