Proc "automatisch" ausführen

D. Annies · Verfasst: Sa 22.11.08 19:04

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?

markieren

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

_________________
ut vires desint, tamen est laudanda voluntas

GTA-Place · Verfasst: Sa 22.11.08 19:12

Aufrufen kannst du diese Funktion z.B. so:

markieren

Delphi-Quelltext

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

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Ehemaliges Mitglied Erhaltene Danke: 1

Die rechte Maustaste kannst Du im Shift-Parameter übergeben. Mit der Bestätigung wird es schon etwas schwieriger.

D. Annies · Verfasst: Sa 22.11.08 19:25

Danke, ihr zwei,
ich habe mich so entschieden, dass ich die Bestätigung mit ok einfach weggelassen habe!

markieren

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 matze: Delphi-Tags hinzugefügt

_________________
ut vires desint, tamen est laudanda voluntas

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme