Außerdem habe ich nun mal den Workaround-Vorschlag von Greenmile aufgegriffen und eine kleine Prozedur draus gemacht, so dass man mit einem Aufruf den Header, die Höhe des Headers, die Items, die jeweilige Breite der Items, die Captions der HeaderItems, die Ausrichtung des Headers, den Parent und ein ClickEvent übergeben kann.
Sieht dann so aus (die
Unit StrUtils und FMX.Header wird benötigt):
Delphi-Quellcode:
Procedure CreateANewHeader (AH: THeader; AHeight: Integer; AClickEvent: TNotifyEvent; AParent: TFMXObject; AL: TAlignLayout; SInfo: String);
var
DyA: TStringDynArray; s: string; HI: THeaderItem; P: Integer;
begin
AH := THeader.Create(AParent);
AH.Parent := Aparent;
AH.Height := Aheight;
AH.Align := AL;
DyA := SplitString (SInfo, ',');
for s in DyA do begin
P := Pos ('=', S);
HI := THeaderItem.Create(AH);
HI.Parent := AH;
HI.Text := Copy (S, 1, p-1);
HI.DragMode := TDragMode.dmManual; // Ohnen diesen Fix geht das ClickEvent nicht :-(
HI.Width := StrToInt (Copy (S, p+1, Length (s)-P+1));
if Assigned (AClickEvent) then HI.OnClick := AClickEvent;
end;
end;
Das könnt Ihr dann so aufrufen (unterstellt, pnSizeBack ist hier z.B. ein TPanel):
var
BillHeader: THeader;
Delphi-Quellcode:
procedure TF_Main.FormCreate(Sender: TObject);
begin
CreateANewHeader (BillHeader, 21, HeaderItemXClick, pnSizeBack, TAlignLayout.alTop,
'Re-Datum=89,Re-Nr=64,Anl.=30,Name=176,Summe=100,ZS=24,Zahldatum=83');
...
end;
Ein Beispiel für die Event-Prozedur:
Delphi-Quellcode:
procedure TF_Main.HeaderItemXClick(Sender: TObject);
begin
ShowMessage ('Clicked: ' + THeaderItem(sender).Text);
end;