StringGrid Spalten resizable

Kayo · Beiträge: 22

Ich hab ein Problem. Ich habe ein StringGrid mit 40 Spalten aber nur zwei sollen in ihre Breite veränderbar sein. Ich wüsste nicht mal bei welchem Erreigniss oder der gleichen ich ansätzen könnte. Ich hoffe mit kann einer helfen. Danke im vorraus.

J.Borchert · Beiträge: 150 WIN10 XE2 Professional

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.sg1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
  begin 
         stringgrid.colwidths[StarreSpaltenNummer]:=StarreBreite;
  end;

mfG Juergen

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.

Kayo · Beiträge: 22

Diese methode sagt mir nicht so zu da ich es ja nicht auslösen will nur weil ich die Maus bewege. Ein bischen zuviel belastung für den PC und unnötig. Ich möchte das das wirklich nur passiert wenn ich im StringGrid selbst die spaltenbreite verändere.

J.Borchert · Beiträge: 150 WIN10 XE2 Professional

Dann benutze davor

if stringgrid.colwidths[FesteSpalteNr] < > FesteBreiteSpalte1 then ...

ansonsten auch keine bessere id

_________________
Wer immer macht was er schon kann, bleibt immer das, was er schon ist. "H.Ford"

Kayo · Beiträge: 22

Schon gut ich habs alleine geschaft. Danke

J.Borchert · Beiträge: 150 WIN10 XE2 Professional

Und wie ?
Ich habe auch gerade ein Grid zu bearbeiten.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme