Ich weiss jetzt nicht warum dies passiert, ist es vielleicht ein
VCL Bug oder ist es mein Bug ? Wie auch immer mein TButton verschwiendet und kommt erst wieder vor wenn ich zB die Größe des Formular ändere ( via Mouse...).
Relevante Code dazu:
Delphi-Quellcode:
procedure TmainForm.UpdateColumnsWidths(TheListView: TListView);
var
i, w: Integer;
begin
w := TheListView.Width div TheListView.Columns.Count - 5;
for i := 0 to TheListView.Columns.Count - 1 do
begin
TheListView.Column[i].Width := w;
TheListView.Column[i].MinWidth := w;
TheListView.Column[i].MaxWidth := w;
end;
end;
//...
procedure TmainForm.FormResize(Sender: TObject);
begin
UlazGroupBox.Height := Height div 2 - BottomPanel.Height;
IzlazGroupBox.Height := UlazGroupBox.Height;
UpdateColumnsWidths(IzlazListView);
UpdateColumnsWidths(UlazListView);
end;
//-> weitere info IzlazListView.Align := alClient; IzlazListView.Parent := IzlazGroupBox;
//-> weitere info UlazListView.Align := alClient; UlazListView.Parent := UlazGroupBox;
//-> DAS Button -> StanjeButton.Parent := BottomPanel;
// alle andere Properties sind unverändert
Danke.
EDIT:
Das Fehler kann man reproduzieren indem man "Maximize" und dann wieder "Restore" klikt.