Forum
Grundkurs
»Introduktion
»Snabbguide
»Komponenter
»Händelser
»Strängar
»Räkna med Delphi »Egna
typer
»Selektion
»Iteration
»Menyer
»Funktioner
»Arraystrukturer
Tips & Tricks
»Nya tips
»Blandat
»Databaser
»Filer
»Forms
»Grafik
»Internet
»Komponenter
»Matematik
»Multimedia
»Objekt/ActiveX
»Skrivare
»Strängar
»System
»Mest lästa tips
Artiklar
»Delphi och ADO
»Bygga en DLL
»Skapa en enkel rapport
»Hantera registret
»Enheter, units
»Klassen TCanvas
»Använd LookUp Controls
Nya
tips
Lägg
till tips
Delphilänkar
Gästbok
|
|
|
|
Dra och släpp-exempel för TStringgrid
|
Kategori: Komponenter
Inlagt: 2009-10-15
Läst: 7398
Inlagt av: Staffan Berg
|
Beskrivning |
Ett grundläggande exempel på hur du kan använda Drag&Drop-eventet i en TStringgrid
|
Kod |
implementation {$R *.DFM} var SourceCol, SourceRow: integer; procedure TForm1.FormCreate(Sender: TObject); begin { Set DragMode to Manual, to control entire drag & drop by code } SG.DragMode := dmManual; { For testing purposes, fill a few cells } SG.Cells[2, 2] := 'A'; SG.Cells[3, 2] := 'B'; SG.Cells[4, 2] := 'C'; end; procedure TForm1.SGMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer); begin { Convert mouse coordinates X, Y to to StringGrid related col and row numbers } SG.MouseToCell(X, Y, SourceCol, SourceRow); { Allow dragging only if an acceptable cell was clicked (cell beyond the fixed column and row) } if (SourceCol > 0) and (SourceRow > 0) then { Begin dragging after mouse has moved 4 pixels } SG.BeginDrag(False, 4); end; procedure TForm1.SGDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); var CurrentCol, CurrentRow: integer; begin SG.MouseToCell(X, Y, CurrentCol, CurrentRow); // konvertera muskoordinater //Acceptera drag endast om källan är en string grid och musen är över en tillåten region Accept := (Sender = Source) and (CurrentCol > 0) and (CurrentRow > 0); end; procedure TForm1.SGDragDrop(Sender, Source: TObject; X, Y: Integer); var DestCol, DestRow: Integer; begin SG.MouseToCell(X, Y, DestCol, DestRow); // konvertera muskoordinater //Flytta innehållet från källa till måldestination SG.Cells[DestCol, DestRow] := SG.Cells[SourceCol, SourceRow]; if (SourceCol <> DestCol) or (SourceRow <> DestRow) then SG.Cells[SourceCol, SourceRow] := ''; end;
|
|
|