Wert aus einer Procedure Global setzen geht das?

[TribleXXX]

Habe das problem in dem OnMouseDown ereigniss gibt es ein X und ein Y als Variable. Die werte daraus möchte ich Global setzen geht das überhaupt und wenn wie mache ich das?

Thx schonmal

[edit=alcaeus]Topic-Peronality angepasst. Mfg, alcaeus[/edit]

[malo]

So? :gruebel:

Delphi-Quellcode:

var
  Form1: TForm1;
  GlobalX, GlobalY: integer;

implementation

{$R *.dfm}


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  GlobalX := x;
  GlobalY := y;
end;

[TribleXXX]

ähm irgentwie habe ich hier nen black out ich arbeite einfach zu lange. mmh stimmt so war das :-D

vielen dank :oops:

[Robert_G]

Bevor ich mich zu einer Antwort verleiten lasse, die malo auf die Idee bringen könnte, dass es mein Hobby wäre ihn runterzumachen...
... werfe ich einfach mal das in die Runde.
Neben all dem religiösen Hin und her sollte der Thread dich zu der Freage führen: "Will ich mir wirklich globale Variablen antun?" ;)