Ich möchte einen Speedbutton exakt innerhalb eines ValueListEditors platzieren:
Folgender Code funktioniert zwar ganz gut:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TKeyTest.FormResize(Sender: TObject);
var
n, m: integer;
begin
m := 0;
for n := 0 to 3 do
m := m + ValueListEditor1.RowHeights[n] + 1;
SpeedButton2.Height := ValueListEditor1.RowHeights[3];
SpeedButton2.Width := ValueListEditor1.RowHeights[3];
SpeedButton2.Top := m;
SpeedButton2.Left := ValueListEditor1.ColWidths[0] +
ValueListEditor1.ColWidths[1] + 1 - SpeedButton2.Width;
SpeedButton2.Parent := ValueListEditor1;
end; |
Aber, wenn ich die betreffende Zeile auswähle "verschwindet" mein speedbutton in den Hintergrund und taucht erst wieder auf, wenn ich eine andere Zeile markiere.
Meine 2 Fragen:
- Wie bekomme ich den SpeedButton permanent über die betreffende Zeile?
- Wie bekomme ich die Linienstärke der GridLinien innerhalb des Valuelisteditors heraus (ich habe jetzt "1" fest vorgegeben)?
Tino