Minesweeper

[Mavarik]

Zitat von Popov:

aber der Hauptvorteil ist, man spart sich vier Zeilen Code

Nein ganz im Gegenteil...

Stundenlanges Panel's auf dem Form platzieren was man in 10 Sekunden und 2 for schleifen machen kann...

Abgesehen davon wird das Form auch in "endlicher" Zeit in die IDE geladen...

Außerdem habe ich die Pannels direct in meinem Array und muss die nicht erst wieder mühsam über die Componentenliste suchen...

Abgesehen von 200 onclick Handlern

[himitsu]

100 (10*10) Panels hab ich in nichtmal 20-30 Sekunden auf der Form platziert (Copy&Paste) ... aber dann muß/sollte man den Dingern auch noch einen Namen verpassen.

[Popov]

@Mavarik

Ich hab nicht gesagt, dass man sich Code und Zeit spart, sondern, dass man sich paar Zeilen komplexen Code spart.

[Mavarik]

Ich glaube Du hast da etwas falsch verstanden...

MEIN Beispiel war doch so wie Dein Source...

[saii]

Vielen Dank für die Kritik und Berichtigungen.
Manche Sachen die hier genannt werden probier ich halt aus, aber als quasi-Anfänger komm ich dann auch schnell nicht weiter.

Ich hab mich jetzt jedenfalls entschieden ein PanelArray zu generieren.
Meine Frage: Wie erstelle ich die Prozedur für das OnMouseDown-Ereignis?

Delphi-Quellcode:

begin
      Panel := TPanel.Create(Self);
      Panel.Parent := Self;
      Panel.Name := 'P_' + IntToStr(x) + '_' + IntToStr(y);
      Panel.Width := WH;
      Panel.Height := WH;
      Panel.Caption := '';
      Panel.Left := x1 + (x * WH);
      Panel.Top := y1 + (y * WH);
      Panel.OnMouseDown := PanelMatrixMouseDown( {?} );
    end;

[BadenPower]

Die Zuweisung der Prozedur zum Ereignis erfolgt ohne Klammern und ohne Parameter, also nur der Prozedurname.

Panel.OnMouseDown := PanelMatrixMouseDown;

[Mavarik]

Zitat von saii:

Meine Frage: Wie erstelle ich die Prozedur für das OnMouseDown-Ereignis?

Ich mach das immer so:

Nimm ein Panel und mach da Click auf Mousedown oder auf OnClick

geh in den Source... Kopieren die Procedure von oben in den Privat teil und drücke Speichern, damit das Form die Procedure "vergißt"...

Schon hast Du die Procedure mit den richtigen Parametern.

Mavarik

[saii]

Danke BadenPower und Mavarik.
Mal sehen wie weit ich komme

[saii]

Ich wollte mit
A:=StrToInt(Panel.Name[3]); (falls das funktioniert hätte) A aus dem Namen des Panels bestimmen,
aber das Problem ist, dass der Name des Panels an der Stelle (zB P_4_7) auch zweistellig sein kann. (P_10_13)

Wenn ihr wisst was ich meine.. wie löse ich das Problem? oder gibt es eh einen besseren Weg?