Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
6. Jan 2008
uuuuuuuuups da war ne 1 drin sorry jetzt gehts auch
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
6. Jan 2008
doch hab ich aber es geht trotzdem auf
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
6. Jan 2008
Der lösungsansatz ist genauso gut wie der andere aber wie mach ich das jetzt das, das popup in der Spalte 0 nicht auf geht mein ansatz geht nicht fehlerfrei
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
5. Jan 2008
vielleicht doch noch einen kleinen tipp
das verhindern des Popups bei Spalte null
procedure TForm7.StringGridPopupPopup(Sender: TObject);
var iCol,iRow: integer;
Position: TPoint;
begin
if StringGrid1.Col = 0 then
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
5. Jan 2008
Genau das wars hatte nicht an die Eigenschaft vom Popup gedacht dank dir Trotzdem :thumb:
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
5. Jan 2008
meinst du so ungefähr
procedure TForm7.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var col, row: integer;
begin
StringGrid1.MouseToCell(x, y, col, row);
if Button = mbRight then
StringGridpopup.Popup(col, row);
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
5. Jan 2008
Ja hat aber auch nicht so ganz geklappt dann wird es irgenwohin geschoben
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
5. Jan 2008
Doch aber ich mus zuerst mit der linken Maustaste die Zelle makieren
und dann kann ich erst an der stelle mein popup ausführen
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
5. Jan 2008
Hi kann mir vielleicht einer sagen wie ich es schaffe eine zelle im StringGrid mit Rechter maustaste zu selektieren und das dann ein popup menü auf geht habe es mal so versucht
procedure TForm7.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
StringGridpopup.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;