Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Proc "automatisch" ausführen


D. Annies - Sa 22.11.08 19:04
Titel: Proc "automatisch" ausführen
Hi, Delpher,

die angegebene Proc wird ja erst ausgeführt, wenn ich die rechte Maustaste gedrückt habe und dann bestätige. Kann diese Proc auch (so) aufgerufen werden, dass die rechte Maustaste und die ok-Bestätigung quasi übergeben werden?


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
procedure TForm1.GroupBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;  Groupbox1.perform(wm_syscommand, sc_move+2, 0);
  if ssright in shift then
    if messagedlgpos('Schließen mit Klick',
       mtInformation, [mbOk], 0,570,355) = mrok then groupbox1.Visible := false;
end;


Vielen Dank für Hilfe/Lösung, sagt
Detlef


GTA-Place - Sa 22.11.08 19:12
Aufrufen kannst du diese Funktion z.B. so:


Delphi-Quelltext 
1:
 
GroupBox1MouseDown(Self, mbRight, [ssRight], 0, 0);


Delete - Sa 22.11.08 19:13
Die rechte Maustaste kannst Du im Shift-Parameter übergeben. Mit der Bestätigung wird es schon etwas schwieriger.


D. Annies - Sa 22.11.08 19:25
Danke, ihr zwei,
ich habe mich so entschieden, dass ich die Bestätigung mit ok einfach weggelassen habe!


Delphi-Quelltext 
1:
2:
3:
4:
 
//if messagedlgpos('Schließen mit Klick',  
  //     mtInformation, [mbOk], 0,570,355) = mrok then  

  groupbox1.visible := false;


Bis denne, Detlef

Moderiert von user profile iconmatze: Delphi-Tags hinzugefügt


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!